; Math. Time-stamp: <2016-08-13 03:55:42 teru>.

(define (Kn math) #:version (1)
  #:export (pi e darn tails dice hyp))

(define pi (* (atan 1) 4))
(define e (exp 1))

(set! *random-state* (random-state-from-platform))

(define (darn k)
  ;;- Scheme Procedure: darn k
  ;;  Like `random' with no arg for what state to use.
  ;;  The `k' arg must be an exact non-negative integer."
  (random k *random-state*))

(define (tails?)
  ;;- Scheme Procedure: tails?
  ;;  Probability of returning `#t' is that of a coin flip.
  ;;  Otherwise it returns `#f'."
  (zero? (darn 2)))

(define (dice)
  ;;- Scheme Procedure: dice
  ;;   One dye of 6 sides returning 1 to 6.
  (1+ (darn 6)))

(define (hyp y)
  ;; Determine how many points a given base-level requires.
  (expt (* 1.5 y) 2))


; Here ends math.scm
